home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / InstallMaster 7.03 / Devfulldemo.exe / file0216.bin < prev    next >
Encoding:
Wise script  |  1999-04-26  |  2.0 KB  |  104 lines
  1. Document Type: WSE
  2. item: Global
  3.   Version=6.0
  4.   Title=Color Palette Support
  5.   Flags=00000100
  6.   Split=1420
  7.   Languages=65 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  8.   Japanese Font Name=MS Gothic
  9.   Japanese Font Size=10
  10.   Start Gradient=0 0 255
  11.   End Gradient=0 0 0
  12.   Windows Flags=00000100000000000010110000011000
  13.   Message Font=MS Sans Serif
  14.   Font Size=8
  15.   Disk Filename=SETUP
  16.   Patch Flags=0000000000000001
  17.   Patch Threshold=85
  18.   Patch Memory=4000
  19.   FTP Cluster Size=20
  20. end
  21. item: Remark
  22.   Text=This Wise 6.0 script determines what color palate is currently running, using dll calls, and the expression parser.
  23. end
  24. item: Remark
  25. end
  26. item: Call DLL Function
  27.   Pathname=%SYS%\USER32.DLL
  28.   Function Name=GetDC
  29.   Argument List=33
  30.   Return Variable=3HDC
  31.   Flags=00100000
  32. end
  33. item: Call DLL Function
  34.   Pathname=%SYS%\GDI32.dll
  35.   Function Name=GetDeviceCaps
  36.   Argument List=30HDC
  37.   Argument List=2112
  38.   Return Variable=2BITSPIXEL
  39.   Flags=00100000
  40. end
  41. item: Call DLL Function
  42.   Pathname=%SYS%\GDI32.DLL
  43.   Function Name=GetDeviceCaps
  44.   Argument List=30HDC
  45.   Argument List=2114
  46.   Return Variable=0PLANES
  47.   Flags=00100000
  48. end
  49. item: Remark
  50. end
  51. item: Remark
  52.   Text=This next statement is an example of the expression parser.
  53. end
  54. item: Set Variable
  55.   Variable=COLORS
  56.   Value=BITSPIXEL * PLANES
  57.   Flags=00100000
  58. end
  59. item: Remark
  60. end
  61. item: Remark
  62.   Text=4 bit color
  63. end
  64. item: If/While Statement
  65.   Variable=COLORS
  66.   Value=4
  67. end
  68. item: Display Message
  69.   Title=Color Palette
  70.   Text=16 color support
  71. end
  72. item: End Block
  73. end
  74. item: Remark
  75. end
  76. item: Remark
  77.   Text=8 bit color
  78. end
  79. item: If/While Statement
  80.   Variable=COLORS
  81.   Value=8
  82. end
  83. item: Display Message
  84.   Title=Color Palette
  85.   Text=256 color support
  86. end
  87. item: End Block
  88. end
  89. item: Remark
  90. end
  91. item: Remark
  92.   Text=16 bit color
  93. end
  94. item: If/While Statement
  95.   Variable=COLORS
  96.   Value=16
  97. end
  98. item: Display Message
  99.   Title=Color Palette
  100.   Text=16 million color support
  101. end
  102. item: End Block
  103. end
  104.